APPLE - BUG 



The Newsletter of A F* I* L E — Q : the Brisbane Users* Group 
Post Office Box 721 - South Brisbane - Qld. 4101 


[ In this issue ] 

Registrar’s Notes <> Secretary’s Notes 
Treasurer’s Notes <> BBS Report 

Editor’s Notes <> Software Library 
Page Eight <> Tips & Techniques 
Advertisement <> Special Discount Offers 

A 

{ Membership Renewal Form } 


NEXT MEETING : - 19th -July 1 987 

(We got the date right again) 


<<< CREDITS >>> 

Tony Truscott -> He typed it all in 
Graham Black -> He typed some too 
The Members -> For their contributions 
ZARDAX II -> Word Processing 
EPSON LQ-1500 -> Typesetting 

The Hooper Centre -> Printing A Distribution 
The APPLE Computer ~> The reason for it all 


Registered by Australia Post - Publication No. QBG 3485. 
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t Executive Committee ] 


Terry Sweetser 
Beraie Benson 
Vince Crosdale 
Brie Conolly 
Graham Black 
Tony Truscott 
Peter Lane-Col lett 
Richard Egglesfield 
Bob Godbehere 


President 

Vice-President 

Secretary 

Treasurer 

Registrar 

Editor 

Assistant Editor 
Hardcopy Librarian 
Software Librarian 


Ph. (07) 203 4210 
Ph. (07) 345-1545 
Ph. (07) 351-3090 
Ph. (07) 261-1860 
Ph. (07) 883 1525 
Ph. (07) 266-4795 
Ph. (07) 398-9282 
Phi (07) 349-8888 
Ph. (07) 808 3892 


[ Bullet in Board System (BBS) ] 


Apple— Q BBS 
Telephone 

Baud Rates 
Data Specs 
Sysops 


: online 24 hra 
: (07) 284-6145 (DATA) 

: (07) 883-1525 (VOICE) 

: 300, 1200/75, 1200 and 2400 (CCITT and BELL) 

: 7 Data bits - 1 Stop bit - No Parity (Full Duplex) 
: Graham Black - ph. 883-1525 
fc Vince Crosdale - ph. 351- 3090 


BBS equipment 


Apple //e 128k 
1 x 800k 3.5" drive 
2x1 meg. Ram Cards 


Calls to the system : 4820 

Registered Users : 277 (as of midnight 5th July) 

SYSOP stands for: SYStem OPerator 

BBS stands for: Bulletin Board System 

The BBS will be on show at each Open-Da y. 


[ What * a When ] 

Sunday 19th July 1987 

Open Day at the Hooper Centre. 

Hours: 9. 00. am. till 4. 30. pm. 

Monday 20th July 1987 
Committee Meeting at the Hooper Centre. 
Starts: 6. 30. pm. 

Sunday 16th August 1987 
Open Day at the Hooper Centre. 

Hours: 9. 00. am. till 4. 30. pm. 

Monday 17th August 1987 
Committee Meeting at the Hooper Centre. 
Starts: 6. 30. pm. 
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t Regi strar-* s Notes ] 

Nailing labels. Please take note 

Your membership number and membership expiry date are on the first line (at 
the top) of the mailing label. This is the only notice you will receive that 
your Membership is due to expire. If your membership is in arrears by more 
than six (6) months, you will be required to pay the joining fee of $10. If 
you do not receive a newsletter, then either your membership will have 
expired, or you have changed your address without telling us. 

Example: 

MBR # 0999 Exp: July 87 

BLOGGS. JOE 

34 BLOGGS CRESENT 

BLOGGS V I LLE.QLD 4999 

Subscription Rates: 

Joining Fee: $10 
Adults/Family: $20 
Students/Pensioners: $12 
Corporate Membership: $50 

Associate Membership: $10 Pro-rata till MAY 88 (BBS users only) 

(Students under 21 years - Pensioners on production of Pensioner Card) 

(at the discretion of the Executive Committee) 

oooooOOOooooo 


The coffee machine at the Hooper Centre does not belong to the club. We 
have been given permission to use it, but the coffee costs 20 cents per cup, 
and should be left on top of the machine in the container provided. 

[ Editor* s Notes ] 

by Tony Truscott 

This month the format of the newsletter has changed somewhat. For a start 
we have created a new logo using Deluxe Paint II on an Apple Ilgs. I would 
like to thank Delsound Electronics for allowing me to use their Imagewriter 
II to print out the logo. Also we have started a new column PAGE 8 thanks to 
the contributions of an anonymous member who is calling himself Power Spike. 
I hope you enjoy the new features, let us know what you think of them. 


Notes J 


by Vince Crosdale 


This month has been extremely quiet and restful in my humble little 
domain, and the only thing of interest there is to tell of is the arrival of 
a couple of newsletters from the Tasmanian Apple Users Group. These 
newsletters contain a few articles that should be of interest to the club 
members, especially those with the //GS that have been trying to discover the 
pin-outs of those funny looking 8-pin plugs on the back. These magazines will 
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be with Richard extremely soon, and we hope to print the article on the 
pin-outs in the near future. 

The main matter this month is a vote of thanks that must, be forwarded to 
Peter Newland and Computer City, Morningside. Peter kindly brought along the 
Mac II and the //GS to the June meeting, along with a selection of software 
for both, and provided an extremely entertaining display for the members. 
From all reports back from members, this was greatly appreciated if just for 
the chance to have a 'play* with a computer that few of us could hope to own. 
To Peter and all the staff at Computer City, a great deal of thanks is 
extended to you from the Committee and members of AppleQ for an excellent 
display. 

Well, that is all for this month, and don’t forget about contributions for 
the newsletter. These can be sent to the club mailbox, or left at the Trading 
Table at the monthly Open Day. All contributions should be in text file 
format on either 5.25" or 3.5" disk. All disks will be cared for and returned 
to the contributor. 

So until next month, Good Computing. 

[ Treiasurei" * s Notes ] 
by Eric Conolly 

The Bank balance has increased to $1767.35 with the only major 
outstanding accounts being our June Newsletter $210.00, the hard drive 
$400.00 (YES! we are still waiting for delivery from Apple), and membership 
cards $70.00. 

We hope to purchase a large quantity of 5 1/4" disks shortly at a good 
price, so don’t get carried away with ideas on how to spend our small 
fortune. 

Keep the money rolling in for your memberships we need to purchase a 
printer for club use. 


[ BBS Report ] 
by Graham Black 

These are the Rules of the system, as laid out in the first message on the 
General Board, and they will be adhered to. In the early hours of Monday 29th 
June, we had cause to deny access of a club member to the system, so that he 
could no longer leave obscene messages to the Sysops . The person concerned 
knows who I mean. 


System Rules and Disclaimer 

* Information available on this system may not reflect the Objects and 
Interests of AppleQ or the attitudes and lifestyles of the people 
responsible for this ABBS. 

* No responsibility can be accepted by the SYSOPS for undesirable messsages 
left on this system. However, the SYSOPS reserve the right to remove messages 
that are in poor taste, or may be offensive in other ways. 
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* HANDLES, NICK NAMES and PSEUDONYMS are considered as being ANTI SOCIAL and 
UNACCEPTABLE behaviour. 

* On all the boards, foul language and personal insults will not be 
tolerated. 

* The DEBATES BOARD is purely for friendly and informative discussions. Any 
person engaged in 'MUD SLINGING’ and/or extreme belligerence shall be 
•TWITTED’. 

* The JOKES BOARD has been set up so that we can all have a good laugh at 
your comedy. 

Obscene language is NOT PERMISSABLE. 

Offenders run the risk of being 'TWITTED’ from the SYSTEM, not just a 
particular Board. 


[ Software Library ] 

Softdisk Volumes: 

The files are divided into sections, and the files in each section are 
required for the particular applications. The Prefix before each file name 
represents the file type. i.e. B=Binary T=Text A Applesoft I~Integer. Each 
section is seperated by a string of -’s and each volume is seperated by a 
string of =’s. 

Volume * 44 - Disk 1 - Side 1 : FREE SECTORS = 12 (3k) 


A HI 
A HELLO 

B S.D. RESET MSG 


B SOFTCOVER 
B SIDE NUMBER 44 
A MENU 


A DEEP SPACE 
B DS. SOUNDS 


B DS. SHAPES 
T ABOUT. DEEP SPACE 


A YLDR 
B UPAC 
B Y.PICS2 
B Y. SHAPES3 


A YAHTZEE1 
B Y.PICS1 
A Y. INST 
T ABOUT. YAHTZEE 


A FOREST FIRE 


T ABOUT. FOREST FIRE 


A QUIR-KALC 
B ] SERIF/SMALL 
B SOUND 
B PACK/UNPACK 


B ] PENMAN 
B CURSORS 

B PICTR. HOURGLASS. PAC 
T ABOUT. QUIK- KALC 


A WORDSEARCH 


T ABOUT. WORDSEARCH 


A ANIMAL PERSONALITY T ABOUT. ANIMAL PERSONALITY 


A ZOO PICTURE MAKER 
B ZOO. DEMO 


B ZOO. DEM02 

T ABOUT. ZOO PICTURE MAKER 
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A CASSETTE LABEL T ABOUT. CASSETTE LABEL MAKER 


A HELLO CUSTOMIZER A CUSTOM HELLO 

T ABOUT. HELLO CUSTOMIZER 


A BORDER MAKER INSTRUCTIONS A BORDER MAKER 

T ABOUT. BORDER MAKER 


Volwe # 44 - Disk 1 - Side 2 : FREE SECTORS = 34 (8.5k) 

A HELLO B S.D. RESET MSG 

B SIDE NUMBER 44 


A SOFTDISK PRESENTS 
B LOWER TEXT 
T STASH HI 

A CONTENTS MAP T CONTENTS MAP. T 


A NUMBER 44 COVER B COVER ANIM 

B COVER. NUMBER 44.PAC 


T FEATURES21 
T SOFTDISK REVIEW 
T QUOTE OF THE MONTH 
T WHEN YOU GET AN ERROR 
B Q & D RWTRACK 


T FEATURES22 
T BASIC ERROR MESSAGES 
T BASIC ERROR MESSAGES 
T BASIC ERROR MESSAGES 


A HOLY MOSES 3 
B PICTR. TABLETS. PAC 
B CURSORS 
B ] APPLE 


T SOFTGAB 

T RECIPE OF THE MONTH 
T SOFT SPOUT 
A Q & D SOFTDISK SCANNER 


T BASIC ERROR MESSAGES 0 & 16 
22 & 42 T BASIC ERROR MESSAGES 53 & 69 
77 T BASIC ERROR MESSAGES 90-133 

163-254 T APPLESOFT RESERVED WORDS 


B PICTR. STORY. PAC 
B PICTR. TAB LETS2. PAC 
B ] SMALL STANDARD 
B PACK/UNPACK 


B LOWER MUSIC 
B PLAYER 
T RESTORE LOW 


Volwe # 44 - Disk 2 - Side 1 : FREE SECTORS = 75 (18.75k) 


A HELLO B SIDE NUMBER 44 

B S.D. RESET MSG 


A ALFREDO’S LASER LAMENT A ALF. PROGRAM. A3 

B ALF. SHAPES. A3. 1 B ALF. SHAPES. A3. 2 


A DOS TUTORIAL MENU 
B DOS DEMO 1.13 
A DOS DEMO 3.13 
T BITS TEXT. 13 


T DOS TEXT. 13 
T TEXT. DOS DEMO 2 
T T 

T TEXT. BITS DEMO 1 


A RICH & FAMOUS 


T RICH & FAMOUS DATA 
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A AD. TM! DISK #2 


A AD. PETE B AD. PETE. PIC. PAG 

B PACK/UNPACK 

A FORMS. MENU A ORDER. BLANK 

A SIGN-UP. FORM 


Voluae * 44 - Disk 2 Side 2 : FREE SECTORS = 18 (4.5k) 


A 

HELLO 

B 

SIDE NUMBER 44 

B 

S.D. RESET MSG 



A 

SOFTDISK PRESENTS 

B 

LOWER MUSIC 

B 

LOWER TEXT 

B 

PLAYER 

T 

STASH HI 

T 

RESTORE LOW 

A 

RECON 

T 

RECONT 

T 

FEATURES43 

T 

ABOUT MATH REFLECTIONS 

T 

TAYLOR’S THEOREM 

T 

POLYNOMIAL DIVISION 

T 

PARTIAL FRACTIONS 

A 

SOFTDISK POLYD1V 

T 

FEATURES41 

T 

BACK ISSUES 

T 

SOFT REWARD 

T 

SOFT DEAL 

T 

HELP THE CAUSE 

T 

ABOUT HARVEST 

T 

ABOUT PIPELINE 

T 

ANNUAL SUBSCRIPTION 

T FBimrtWS42 

T 

ADVENTURE HINTS 

T 

ADVENTURE REQUESTS 

T 

APPLE III NEWS 

T 

BBS INFORMATION 

T 

HARDWARE AID REQUESTS 

T 

HARDWARE HINTS 

T 

INVESTMENT TALK 

T 

PAL CORRESPONDENCE 

T 

PRINT SHOP TALK 

T 

PRINTER REQUESTS 

T 

PROGRAM REQUESTS 

T 

REVIEW - APPLE COLOR MONITOR 

T 

REVIEW - APPLE LCD DISPLAY 

T 

REVIEW - APPLEWORKS MAILING 

T 

REVIEW - APPLEWRTTER TOOLKIT 

T 

REVIEW - ASCII EXPRESS 

T 

REVIEW - COPY ][ PLUS 5.0 

T 

REVIEW - DATA CAPTURE 5.0 

T 

REVIEW - MEGAWORKS 

T 

REVIEW - RAMWORKS 

T 

REVIEW - THE NEWSROOM 

T 

REVIEW - WORD PUZZLES 

A 

Q & D PS. IMAGER 

B 

Q fc D PS. IMAGER. OBJ 

B 

PS. ANTS 

B 

PS. APPLE 

B 

PS. CLOCK 

B 

PS. CROSS 

B 

PS. CROWN 

B 

PS.DIN04 

B 

PS. DOLPHIN 

B 

PS. DUCK 

B 

PS . EARTH 

B 

PS. FIRE CRACKER 

B 

PS. FISH 

B 

PS. FLUKE 

B 

PS. HELMET 

B 

PS. HULA GIRL 

B 

PS. MUSIC] 

B 

PS.MUSIC2 

B 

PS. NO BS 

B 

PS. OLYMPIC SAM 

B 

PS. QUARTERBACK 

B 

PS. RABBIT 

B 

PS. RADIO 

B 

PS. SANTA CLAUS 

B 

PS. SANTA HELPER 

B 

PS. WREATH 



A 

PIPELINE 

B 

PIPELINE. OBJ 


Pigt 8 C0000 10003 


by Pcturr Fpikm 


Yes, we have a new column. 

Me hope to let loose this column 
on your intelligence once each 
month. 

You have all heard about bits, 
bytes, nibbles, incider, rams. Uncle 
Dos etc. and 1 think you would 
agree that they all in some way 
conjure up some confusion for us 
poor mortals in understanding 
something of the intricacies of 
the monsters which endeavour to 
control our spare moments. 

Nell 'Power Spike’ , the writer of 
these ramblings, does not profess 
to be endowed with sufficient 
knowledge to be of any help in 
unravelling these mysteries 
however, in some misguided way he 
does hope that these humble 
beginnings may blossom into 
something of value with a lot of 
help from you lot out there. 


Should you be so disposed to 
contribute to this lively column 
you will have the choice of 
having your name appear as the 
contributor and so possibly 
project yourself into the realms 
of notoriety where-in computer 
buffs refer to you with the 
same reverence as is afforded 
the name Nozniak or you can 
maintain you present humble 
status and remain anonymous. 

So get busy and send Power 
Spike some ideas, tricks or 
mistakes - note you will have to 
identify the mistakes as he is 
prone to believe anything. 

Please address whatever to 
Power Spike, c/- Editor, 
Apple-Bug, P.0. Box 781, South 
Brisbane. 


Do you have trouble setting tabs 
for use in printing documents, 
every attempt I have made ended 
in a mess. Type in this short 
listing and see if it works ok. 

10 1$ * CHR$(9):D*-CHR*<4> 

20 PRINT DB/PRil" 

30 PRINT IB/80N- 
40 PRINTCHRf<27);”(020,035, 045,060. 

50 PRINT "Apple-0- 
60 PRINT If;"is" 

70 PRINT I*;"a" 

00 PRINT I*;"good" 

90 PRINT I*;"club" 

100 PRINT D*;"PRf0" 

If the tabs don’t work add the 
following and try again! 

35 PRINT If;" "; 

Calculate your tax payable! 

10 TEXT : HOME 
20 UTAB 5: HTAB 10: INPUT 
"Taxable Income: ";I 
30 60SUB 500 60SUB 700 
40 PRINT = PRINT = HTAB 13= PRIHT 
"Tax Payable: ",Pf 
50 60SUB 600: 60SUB 700 
60 PRIHT : PRIHT : HTAB 11: 

PRINT "Medicare Levy \P$ 

70 END 


500 IF I > 35000 THEN P > 

10954.19 ♦ <1 - 35000) * 
.5700= RETURN 

510 IF I > 28000 THEN P « 
7676.09 ♦ <1 - 28000) * 
.4683: RETURN 

520 IF I > 19500 THEN P - 
3914.84 ♦ <1 - 19500) * 
.4425: RETURN 

530 IF I > 12600 THEN P - 
1884.86 ♦ <1 - 12600) • 
.2924: RETURN 

540 IF I > 12500 THEN P > 

1858 36 ♦ (I - 12500) • 265 
RETURN 

550 IF I > 4890 THEN P - (I - 
4890) • .2442 RETURN 

560 IF I < 4890 THEN P - 0: 
RETURN 

600 IF I < 8030 THEN P = 0: 
RETURN 

610 IF I > 8517 THEN P = I # 
.01145: RETURN 

620 P * <1 - 8038) • 2 RETURN 

780 P *= INT «P * 100) ♦ 5) / 
100 PB ■ STRS <P) 

710 IF P * INT <P) THEN Pf • 
Pf * " 00" 

720 IF ASC < RI6HTf <Pf,2» * 
46 THEN Pf = P$ ♦ "0" 

730 RETURN 
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[ TIPS AND TECHNIQUES 1 
by Graham Black 

I have had an APPLE for over eight years now, and I usually find a new 
problem every time I write a program. My machine is the Apple //e, and I am 
programming with the Extended 80 Column Text Card. T have discovered that 
this card does not like the INVERSE and NORMAL commands. PRINT CHR$ (15) 
replaces INVERSE, and PRINT CHR$ (14) replaces NORMAL. PRINT CHR$ (21) 
deactivates the card. It is essential to deactivate the card before accessing 
another I/O port, such as a printer in slot #1. A summary of these commands 
can be found on pages 45 and 46 of the 80 Column Text Card Manual. 

Subroutines are the heart of any basic program. If there is a routine that 
you will use more than once, then you should go to it with a GOSUB. Here are 
some that I am sure you will find very useful. 

oooooOOOooooo 


When I build, add to, or delete part of a string, I always call for 
confirmation, before the final construction or destruction takes place. At 
this stage, if I have made a mistake, T can abort and start again. For this T 
use the following subroutine. 

18100 REM CONFIRM (Y/N) 

lflUJL VTAB 23: HTAB 13: PRINT CHR$(7); "CONFIRM (Y/N) " ; : GET AN$: 

PRINT AN$; 

18120 IF AN$ < > "Y" AND AN$ < > "N" THEN 18110 

18130 VTAB 23: HTAB 13: PRINT " REM 14 SPACES 

18140 RETURN 

The PRINT CHR$(7) simply draws my attention to the prompt in line 18110. Line 
18120 is the error trap which will only let you type "Y" or "N". Line 18130 
erases the message before returning to the main body of the program where you 
decide what to do with your answer. 

oooooOOOooooo 


This next one, is one method of rounding off the dollars and cents, and 
putting them into a string with a lenth of 7 characters ready to print. i.e. 
X = 4.5 : X$ = " 4.50” 

18200 REM RIGHT JUSTIFY DOLLARS AND CENTS 
18210 X$ = STR$ (INT (X * 100 + .5)) 

18220 N = LEN ( X$ ) 

18230 IF N > 2 THEN X$ = LEFT$ (X$,N 2 ) h f RIGHTS (X$,2) 

18240 IF N = 1 THEN X$ = "0.0" + X$ 

18250 IF N - 2 THEN X$ = "0." + X$ 

18260 X$ = " " + X$: X$ = RIGHT$ (X$,7) 

18270 RETURN 


oooooOOOooooo 
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CONC ATINAT ION : - 

STRINGS manipulation is a very important part, of basic programming. This is 
the method used in a data base program for storing information to disk. Let 
us say, that for our files, we require NAME & PHONE NUMBER. In our program, 
we INPUT this data in three (3) seperate operations. First we require the 
name, so we call our variable NA$. Next we require the area code, and we will 
call this AC$. Last but not least, we require the phone number itself, and 
this we will call PH$. We now must decide how many letters we will allow for 
each string. Let us assume that no name will exceed 25 characters in length, 
and that the phone number will contain no more than 14 characters, including 
area code and seperators. When the data has been entered, we must check to 
make sure that it does not exceed the limit, and that it is exactly the right 
length, so that we will always know exactly where to find the data from 
within the string. I always insert a space between each string as T assemble 
the main string. By doing this, looking at the string, 1 can see exactly 
where each component part is located. This method also sets things up so that 
the string can be printed 'as is’. The string ST$ will now have a length of 
40 characters. Our strings will look something like this; 

NA$ = ” " 

AC$ = "(...)" 

PH$ = ”... - " 

STS = " (...) ... " 

10 HOME 

90 REM ENTER NAME AS NA$. 

100 INPUT " NAME: ";NA$ 

110 REM - IF THE LENGTH OF NA$ IS GREATER 

120 REM - THAN 25 THEN GOTO LINE 100 AND 

130 REM - ENTER IT AGAIN. 

140 IF LEN (NAS) > 25 THEN 100 

150 REM - IF THE LENGTH OF NAS IS LESS THAN 

160 REM - 25 THEN ADD " " TO NA$. 

170 IF LEN (NAS) < 25 THEN NA$ = NA$ t " GOTO 120 
180 INPUT " AREA CODE: ";AC$ 

190 REM - IF THE LENGTH OF ACS IS GREATER 

200 REM - THAN 3 THEN GOTO LINE 180 AND 

210 REM ENTER IT AGAIN. 

220 IF LEN (ACS) > 3 THEN 180 

230 REM - IF THE LENGTH OF AC$ IS LESS THAN 

240 REM - 3 THEN ADD " " TO AC$. 

250 IF LEN (ACS) < 3 THEN ACS = " " f ACS: GOTO 250 
260 REM - ACS IS NOW THE CORRECT LENGTH 

270 REM SO NOW ADD THE BRACKETS. 

280 REM - "(...) " 

290 ACS = "(" + ACS t ")" 

300 INPUT "PHONE NUMBER: ";PH$ 

310 REM IF THE LENGTH OF PH$ IS GREATER 

320 REM - THAN 7 THEN GOTO LINE 300 AND 

330 REM - ENTER IT AGAIN. 

340 IF LEN (PH$) > 7 THEN 300 

350 REM - IF THE LENGTH OF PH$ IS LESS THAN 

360 REM - 7 THEN ADD " " TO PH$. 

370 IF LEN (PH$) < 7 THEN PH$ --- " " i PHS 
380 REM - INSERT " " IN PH$. 
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390 PH$ = LEFT$ (PH$,3) * " " t RIGHT$ (PH$,4) 

400 REM - DISPLAY ALL 3 STRINGS SO THAT 
410 REM THEY CAN BE CHECKED. 

420 HOME 

430 VTAB 8: HTAB 1: PRINT NA$ 

440 VTAB 10: HTAB 15: PRINT AC$;" ";PH$ 

450 REM - CONFIRM THAT ALL ENTRIES ARE 
460 REM - CORRECT BEFORE THE FINAL 

470 REM ASSEMBLY OF THE STRING. 

480 GOSUB 18010: REM CONFIRM (Y/N) 

490 REM - IF THE DATA IS NOT CORRECT THEN 

500 REM - GO BACK AND START AGAIN. 

510 IF AN$ = "N" THEN 10 

520 REM - IT IS NOW TIME TO ASSEMBLE 

530 REM THE 3 STRINGS WITH A SPACE 

540 REM - BETWEEN EACH ONE AND CALL 

550 REM - THEM STS. 

560 STS = NAS + " " + ACS + " " f PHS 
570 REM - DISPLAY STS. 

580 VTAB 12: HTAB 1: PRINT STS 
590 END 

18100 REM CONFIRM (Y/N) 

18110 VTAB 23: HTAB 13: PRINT CHR$ (7 ); "CONFIRM (Y/N) " ; : GET AN$ 

18120 IF AN$ < > "Y" AND AN$ < > "N" THEN 18110 

18130 VTAB 23: HTAB 13: PRINT " REM .14 SPACES 

18140 REM - THE SEMICOLON IS NECESSARY TO 

18150 REM STOP THE SCREEN FROM SCROLLING 

18160 REM - UP ONE LINE. 

18170 RETURN 

oooooOOOooooo 


I have always taken a dislike to the flashing cursor, sitting there waiting 
for me to press a key, so I always use this little routine. Whatever you do, 
don’t forget the semicolons, or the screen will scroll up one line. 


18000 REM PAUSE WITHOUT CURSOR 

18010 VTAB 23: HTAB 10: INVERSE: PRINT "ANY KEY TO CONTINUE";: NORMAL 
18020 WAIT -16384,128: POKE 16368,0 

18030 VTAB 23: HTAB 10: PRINT " ";: REM 20 SPACES 

18040 RETURN 


oooooOOOooooo 

Here is something for the BUG HUNTER to ponder over. Enter this little beauty 
exactly as shown. To get it up and running, DO NOT type RUN. Type GOSUB5 from 
the keyboard and enter "ERR" at the INPUT prompt. 

5 INPUT A$: RETURN 

100 TEXT: HOME: VTAB 10: PRINT "APPLESOFT ERROR" 

Now delete line 100 by typing 100 <RETURN> and try again. 


oooooOOOooooo 
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THE NUMBER-CRUNCHER’S LEXICON 
by: Brett Dutton 

For years I’ve been hanging around computer people. Many think I’m some 
kind of weird groupie, but that isn’t it at all. Actually, I’ve been trying 
to figure out what the hell they’re talking about. 

My research wasn’t easy at first. Whenever I located a group of them and 
began my approach, they would spot me as an outsider and scatter. T slowly 
developed better stalking techniques. I began disguising myself as one of 
them, carrying Fortran manuals and Numerical Analysis lexis around. In later 
years I even discovered that I could lure them by flashing a copy of the more 
popular computing magazines. 

These years of dedicated investigation have paid off, and I am now ready 
to share my discoveries with the world. All of you who have previously been 
baffled by jargon of this strange tribe need remain no longer in ignorance. I 
am presenting my findings in the form of a lexicon which will enable you to 
decode the most cryptic of statements in computer jargon. 

Array: The little bit of sunshine the beginner experiences when he 

finally comprehends the first page of an operating manual. 

Assembly Language: Profanities used by people who build computers from 
kits. (Such people are termed "cursors".) 

Assign: "NO PARKING". 

Atom: A male cat. 

Bugs: A parasite which infests software. It is transmitted by illicit 
congress between people and programs. 

Byte: What your friends put on you when you win the pools. 

Core: The remains of an Apple when all the bytes are gone. 

Chain: Made obsolete by the daisy wheel. 

Cold Boot: What you get when you kick an eskimo. 

Control Characters: Security guards at a punk rock concert. 

Double Density: The permanent state of mind of the office idiot. 

Data Processing: An arcane fortune telling method wherein one attempts to 
extract hidden meanings from numbers. Akin to numerology. 

Down Time: Periods when a computer is acutely depressed. 

Execute: Positive action required when dealing with some computer 

programmers . 

Error: The act of buying a computer. 

Hexadecimal: To bewitch a number. 

Hard Disk: Definitely not for beginners. 

Index: Finger for pulling out of. 

Interpreter: One is desparetly needed to turn computer language into 
plain english. 

Infinite loop: See Input 

Input: See Throughput 

Jump Instruction: The act of shooting at your opponent’s feet. 

Kilobaud: A person who knows 1000 risque stories. 

Keypunch: The device that puts the little round holes in the tops of 
keys . 

Line Printer: The device that puts the thin blue streaks across your 
note-book paper. 

LISP: Ita Buttrose, we love you. 

Memory: Umm, ah, er. 

Numerical Analysis: Proving that 2+2 really does make f>. 
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Output: See Input 

Operating System: What you have after n meal of prunes. 

Peripheral: Irrelevant. 

Real time: Whenever the computer isn’t hallucinating. 

Reboot: To repeatedly kick a faulty computer until it starts working 
again. 

Source Code: "In the beginning " 

Sort: If you get onto a good one, let me know. 

Terminal: Said of a computer that is about to die. 

Throughput : See Output 

Read Only Memory: The art of conversation is dead. 

Read/Write Head: A bony structure containing a brain that can make 
up its own mind. 

Unix: Collective noun for harem guards. 

Write Protect: Instruction to write the word ’protect’. 

oooooOOOooooo 


APPLE PLOTTING 
by: Brett Dutton 

Here’s a relatively simple routine which enables you to to plot, a variety 
of mathematical functions using the Apple 11+ . 

The function should be input in polar form but. don’t worry if you don’t, 
know what that means - you’ll get the hang of it by trial and error. Enter 
the function in line 200 and set the size control parameter A in line 10. 
Increase A to make the graph bigger or decrease A to make it smaller. 

By experimenting with different functions and different, values of A, 
you’ll be able to create a variety of interesting curves. You might like to 
try these for starters: 


R = A#( 1-COS (T) ) 

(A=50) 

R = SQR ( A* A*COS ( 2*T ) ) 

( A=100) 

R = A 

(A=50) 

R = A/T 

(A=150) 

R = A*(1+2#C0S(T) ) 

(A=25) 

R = A*SQR(TAN(2*T) ) 

( A=50) 

R = A*L0G(T) 

(A=20) 

and for the romantic, 


R = A*(COS(T-1.57r9-2) 

(A=25) 


while for something different try, 

R = A*LOG(T/A) (A-???? ) 

(I’ve forgotten the A value for this last one so you’ll have to 
experiment with it.) 

The program calculates and plots the function for a range of T from 1 
degree to 360 drgrees. A FOR. ..NEXT loop isn’t used because of the Apple’s 
ONERR feature, which is necessary here for functions which produce negative 
square roots and the like. 

Apple-Q would be pleased to hear/see of any interesting shapes you 
discover. 

1 ONERR GOTO 300 
10 A = 25 

100 X9 = 135: XI = X9: Y9 75: Y1 = -Y9 
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110 T1 = 1/3.1415926: T9 = 360 * Tl: T0=T1 
120 HGR: HOME : HCOLOR = 3: VTAB(24): LIST 200 
130 HP LOT X9, 1 TO X9,2 * Y9: HP LOT 1,Y9 TO 2 * X9,Y9 
190 T = Tl 

200 R = A * LOG(T/A) 

210 X = INT (R * COS(T) ) : Y = INT(R * SIN (T) ) 

220 IF X < XI THEN 270 

230 IF X > X9 THEN 270 

240 IF Y < Y1 THEN 270 

250 IF Y > Y9 THEN 270 

260 HP LOT X + X9,Y + Y9 
270 T = T + TO 
280 IF T < = Y9 THEN 200 
290 STOP 

300 El = PEEK (222) 

310 E2 = PEEK (218) + PEEK (219) + 256 

320 T = T + TO 

325 IF E <> 53 THEN 340 

330 RESUME 

340 PRINT "ERROR CODE ";E1;" AT LINE ";E2 
350 STOP 

oooooOOOooooo 


C Advert isements ] 

FOR SALE -> Contact: Graham Black at the Trading Table or ph.(07) 883 1525 

Netcomm manual modem 3+12 (ex-demo) $ 285 

Speed Demon (speeds up the apple 3.5 times faster than normal) $ 500 
Roland DXY-800 Plotter (8 colour) includes many pens and paper $1050 

Alf Synthesizer + amplifier + approx. 30 disk of music $ best offer 

Sirius 15" serial printer. Good condition $ 350 

DIGITEK Serial Interface DK 24-4 $ 75 

//e Mouse $ 225 

//e numeric keypad $ 75 

PASCAL Reference manuals $ best offer 

Microfazer 64k printer buffer, serial in/parallel out $ 200 o.n.o. 

MCP printer/plotter (plus pens) $ 90 

APPLE /// Softcard III by MICROSOFT (2 only) $ best offer 

Assorted APPLE /// software (incl. Visicalc III) $ best offer 

Price-tag gun (2 only) $ best offer 

Telex rolls $ 4 each 

ZARDAX (DOS 3.3) $ 165 

ZARDAX II (ProDOS) $ 165 

RS-232 Inline Switch Box. (male to female) $ 25 

FOR SALE -> Contact: Brodie Thiesfield of Lowood on ph.(075) 86-1618 

Apple ] [+ disk drive monitor speach card colour card. Can be viewed at 
Redcliffe 45 disks plus manuals. $820 
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FDR SALE -> Contact: Vince Crosdale at the Trading Table or ph.(07) 351 3090 

Enhanced Apple //e 128k, two disk dri vcs, monitor, parallel card, RGB card, 
manuals many disks included. $2200 ph.(07) 351 3090 


THIS SPACE IS RKSKlfVb.I) 
FOR YOITR ADVERTISING * ! * 
Adver tisin g Rates: FRE E to all Financial Members 


[ Special Discount Offers | 

The following Dealers, have offered a cash discount on al I Apple products 
to FINANCIAL MEMBERS ONLY, on production of CURRENT membership cards. Please 
note: Members MUST produce their current membership cards if they wish to 
take advantage of this offer. 

DKLSOUND ELECTRONICS 

1 Wickham Terrace (corner Wharf Street), Brisbane 
telephone: (07) 839-6155 
ask for John 

COMPUTER ORCHARD 

671 Gympie Road, Chermside, Brisbane 
telephone: (07) 3501255 
ask for Scott 


THE BYTE CENTRE 

49 Park Road, Milton, Brisbane 
telephone: (07) 369-4099 
ask for James Donegan 


COMPUTER CITY 

600 Wynnum Road, Morningside, Brisbane 
telephone: (07) 395-6816 
ask for Peter Newland 


[ THE RE — INKING OF PRINTER RIBBONS 1 
by Ken Nelson 

Here is a hint for those whose printer ribbons are fading. 

A spraying of WD40 or CRC seems to revive the ribbon. However, the spray 
takes a while to penetrate fully, so expect a few blotches on the first 
copies . 

Open the ribbon cartridge and leave the ribbon exposed. Using l he thin tube 
that is supplied with the spray can, spray on the gears, and the WD40 will 
flow down through the ribbon coil. Allow the ribbon to 'settle’ lor about 
three weeks and load into the printer. If the ribbon is used while wet, the 
printing will be smudged. 
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Rec: Exp: Membership Numbt-t 

Apple-Q: the Brisbane Users’ Group 

MEMBERS H IP RE NEWAL 

Membership to Apple-Q is on an annual basis from the month that 
you join. All members on our books are required to note any 
changes to their personal details and forward to the Registrar 
upon renewal of their membership. 

MEMBERSHIP FEES 


[ ] $20.00 Adult and Family memberships 

[ ] $12.00 bona fide students under the age of 21 

[ ] $12.00 pensioners upon production of pension card 

(at the discretion of the Executive Committee) 

a*************************************************************** 

Membership Renewal Fo rm 


Surname: 

Other names : . . . . 
Private Address: 


Private telephone: ( . . . ) 
Postal Address: 


Business telephone: (...) 

I hereby declare that the above details are true and correct, and 
agree to abide by the Rules and Regulations of the group. 


Signed: 

Please complete these details to allow our records to be checked. 
DO NOT use this form for an initial membership application, forms 
for that purpose may he obtained from the Registrar or the 
Secretary. 

THIS FORM SHOULD BE COMPLETED AND RETURNED WITH FEE EITHER: 

at the next Open Day -or 

post to: The Registrar 
Apple-Q 
P.O.Box 698 
Redcliffe. QLD 4020 


( PLEASE DO NOT ) 
( MUTILATE THIS ) 
( FORM ) 


